load("data/RData/all.RData")
load("data/RData/hama.RData")
library(tidyverse)
library(summarytools)
library(mapview)上位25%以上の密集地帯・ホットスポットです。
黄色の点:押すと点を中心とした250m半径の円の中に高校生の数が分かる
赤い区画:高校生が多くいると思われる基本単位区画
map6<-map5 %>%
mutate(hotspot=if_else(exp2>=5.8,1,0)) %>%
filter(hotspot==1) %>%
mutate(exp1=round(exp1,digits = 1),
exp2=round(exp2,digits = 1)) %>%
select(geometry,exp1,exp2,S_NAME,JINKO,SETAI,hotspot) %>%
rename(中学生推定人数=exp1,
高校生_浪人推定人数=exp2,
町名=S_NAME,
単位区人口=JINKO,
世帯数=SETAI) %>%
filter(!町名=="長浜")
sfa<-intersec %>%
select(geometry,total) %>%
mutate(hot=if_else(total>=27,1,0)) %>%
filter(hot==1) %>%
rename(合計人数=total)
mp<-mapview::mapview(sfa,
zcol="hot",
col.regions = c("orange"),
map.types =c("Esri.WorldImagery","OpenStreetMap"))
mapview::mapview(x=map6,
zcol="hotspot",
col.regions = "red",
color="transparent",
map.types =c("OpenStreetMap","Esri.WorldImagery"))+
(mp)黄色の点と赤い区画が重なっているようなエリアは特に確実性があります。
金沢文庫、八景は特定の集合住宅に受験生が集中しており、杉田以北では住宅街にも万遍なく受験生が点在しています。
mapview::mapview(x=map5,
zcol="exp2",
color="transparent")